home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / listbox / txtyle / txtyle.bas < prev    next >
BASIC Source File  |  1991-12-05  |  384b  |  12 lines
  1.  
  2. Sub EnhanceTextBox (Ctl As Control, NewStyle As Long)
  3.     Dim Style As Long
  4.      '-- Get the current window style.
  5.     Style = GetWindowLong(ControlHwnd(Ctl), GWL_STYLE)
  6.      '-- Use OR to combine the existing style and the new style options.
  7.     Style = Style Or NewStyle
  8.      '-- Set our new style.
  9.     Style = SetWindowLong(ControlHwnd(Ctl), GWL_STYLE, Style)
  10. End Sub
  11.  
  12.